program main

    use swift_file_m, only: mkdir, pwd, is_exist
    if (.not.is_exist(pwd()//"/example/tmp", dir=.true.)) call mkdir(pwd()//"/example/tmp")
    if (.not.is_exist("./example/tmp2", dir=.true.)) call mkdir("./example/tmp2")
    if (.not.is_exist("./example/tmp3", dir=.true.)) call mkdir("./example/tmp3")

end program main
